home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1993 July / InfoMagic USENET CD-ROM July 1993.ISO / sources / unix / volume22 / nn6.4 / part18 < prev    next >
Encoding:
Internet Message Format  |  1990-06-07  |  54.4 KB
  1. Subject:  v22i052:  NN Newsreader, release 6.4, Part18/21
  2. Newsgroups: comp.sources.unix
  3. Approved: rsalz@uunet.UU.NET
  4. X-Checksum-Snefru: c0167a12 57a96eb0 4c755aec 80ad09d7
  5.  
  6. Submitted-by: "Kim F. Storm" <storm@texas.dk>
  7. Posting-number: Volume 22, Issue 52
  8. Archive-name: nn6.4/part18
  9.  
  10. #! /bin/sh
  11. # This is a shell archive.  Remove anything before this line, then feed it
  12. # into a shell via "sh file" or similar.  To overwrite existing files,
  13. # type "sh file -c".
  14. # The tool that generated this appeared in the comp.sources.unix newsgroup;
  15. # send mail to comp-sources-unix@uunet.uu.net if you want that tool.
  16. # Contents:  contrib/recmail.c contrib/recmail.sh doc/NEWS-6.3 inst.sh
  17. #   news.c reroute.c unshar.c xmakefile
  18. # Wrapped by storm@texas.dk on Sun May  6 18:20:14 1990
  19. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  20. echo If this archive is complete, you will see the following message:
  21. echo '          "shar: End of archive 18 (of 22)."'
  22. if test -f 'contrib/recmail.c' -a "${1}" != "-c" ; then 
  23.   echo shar: Will not clobber existing file \"'contrib/recmail.c'\"
  24. else
  25.   echo shar: Extracting \"'contrib/recmail.c'\" \(7717 characters\)
  26.   sed "s/^X//" >'contrib/recmail.c' <<'END_OF_FILE'
  27. X/*
  28. X *    Copyright (c) 1990 Tom Dawes-Gamble.
  29. X *      For Copyright restrictions see the README file distributed with nn. 
  30. X *          
  31. X *    Mail sender for nn with C news and smail.
  32. X *    
  33. X *      Written by Tom Dawes-Gamble Texas Instruments Ltd, Bedford England.
  34. X *
  35. X *    e-mail tmdg@texins.uucp
  36. X *      uucp   ..!ukc.co.uk!pyrltd!miclon!texins!tmdg
  37. X *
  38. X *      When I installed nn with Cnews I could not find an equivalent
  39. X *    to the Bnews recmail so I wrote this to do the job.
  40. X *    It seems to work for me.
  41. X *    I have no idea how this will work for mailers other than smail
  42. X *
  43. X *    YOU WILL need to look at the way get_host_name works for you system
  44. X *    
  45. X *    If you use this program please let me know so that I can mail you
  46. X *    any enhancements.
  47. X *
  48. X */
  49. X
  50. X/*  you can use the smail defs if required */
  51. X#ifdef SMAIL_DEFS_H
  52. X#include  SMAIL_DEFS_H
  53. X#else
  54. X#define MYDOM ".uucp"
  55. X#endif /* SMAIL_DEFS_H */
  56. X
  57. X#define MAILER "/bin/smail"   /* The pathname of your mailer */
  58. X
  59. X#include <stdio.h>
  60. X#include <errno.h>
  61. X#include <string.h>
  62. X#include <pwd.h>
  63. X#include <sys/utsname.h>
  64. X#include <sys/types.h>
  65. X#include <time.h>
  66. X
  67. X/* where is the local time zone name ? */
  68. X
  69. X    /* xenix 2.3.2 has this in the tm structure */
  70. X/*#define TIMEZONE_NAME(tm) ((tm)->tm_name) /* */
  71. X    /* some systems have it here */
  72. X#define TIMEZONE_NAME(tm) (asctime(tm)?tzname[(tm)->tm_isdst?1:0]:"") /* */
  73. X
  74. Xextern char *getlogin();
  75. Xextern char *getenv();
  76. Xextern char *malloc();
  77. Xextern char *mktemp();
  78. Xextern struct passwd *getpwnam();
  79. Xvoid get_host_name();
  80. X
  81. Xchar *day_name[] = { "Sun", "Mon", "Tue", "Wed", "Thu", "Fri", "Sat"};
  82. X
  83. Xchar *month[] = {    "Jan", "Feb", "Mar", "Apr", "May", "Jun",
  84. X            "Jul", "Aug", "Sep", "Oct", "Nov", "Dec" };
  85. X
  86. Xchar *mail_template = "/tmp/rmXXXXXX";
  87. Xchar *mail_spool = "/tmp/rmXXXXXX";
  88. X
  89. X#undef BUFSIZ
  90. X#define BUFSIZ 1024          /* a 1024 byte buffer should be enough */
  91. X
  92. X#define ERROR_MSG_0 "%s: Unable to read stdin ** Error = %d\n"
  93. X#define ERROR_MSG_1 "%s: Unable to create spool file ** Error = %d\n"
  94. X
  95. XFILE *sfd, *fopen();
  96. X
  97. Xvoid send_the_message();
  98. Xvoid build_the_header();
  99. X
  100. Xint main(argc, argv)
  101. Xint argc;
  102. Xchar **argv;
  103. X{
  104. X    char inbuff[BUFSIZ];    /*  Buffer for stdin  */
  105. X    char pbuff[BUFSIZ];    /*  Buffer to hold the name of recipients */
  106. X        char **tolist, *tonames[100];  /* I think that should cope for now */ 
  107. X
  108. X    if (argc != 1) {
  109. X        (void) fprintf(stderr,
  110. X            "%s does not allow any arguments yet!\n", argv[0]);
  111. X        exit(1);
  112. X    }
  113. X    tolist = tonames;
  114. X
  115. X/*  FIX  this could be much better */
  116. X    *tolist++ = MAILER;
  117. X    *tolist++ = "-f";
  118. X    *tolist++ = mktemp(strcpy(mail_spool, mail_template));
  119. X    *tolist = pbuff;
  120. X
  121. X    if ((sfd = fopen(mail_spool, "w")) == NULL){
  122. X        (void) fprintf(stderr, ERROR_MSG_1, argv[0], MAILER, errno);
  123. X        exit(1);
  124. X    }
  125. X    build_the_header();
  126. X
  127. X    /* Now send the mail down the tube */
  128. X
  129. X    while((fgets(inbuff, BUFSIZ, stdin)) == inbuff){
  130. X            /* strip blind copies */
  131. X        if (strncmp(inbuff, "Bc: ", 4)){ /* true if not Bc: */
  132. X            (void) fprintf(sfd, "%s", inbuff);
  133. X        }
  134. X         if (!strncmp(inbuff, "To: ", 4)){
  135. X            tolist += get_names(inbuff, tolist);
  136. X        } else if (!strncmp(inbuff, "Cc: ", 4)){
  137. X            tolist += get_names(inbuff, tolist);
  138. X        } else if (!strncmp(inbuff, "Bc: ", 4)){
  139. X            tolist += get_names(inbuff, tolist);
  140. X        } else if (!strcmp(inbuff, "\n")){
  141. X            break;
  142. X        }
  143. X    }
  144. X    while((fgets(inbuff, BUFSIZ, stdin)) == inbuff){
  145. X        (void) fprintf(sfd, "%s", inbuff);
  146. X    }
  147. X    (void) fflush(sfd);
  148. X    (void) fclose(sfd);
  149. X    *tolist = NULL;
  150. X    send_the_message(tonames);
  151. X    exit(0);
  152. X}
  153. X
  154. Xget_names(line_buffer, to_names)
  155. Xchar *line_buffer;
  156. Xchar **to_names;
  157. X{
  158. X    char *curr_name;
  159. X    char *next_name;
  160. X    int name_count;
  161. X
  162. X    name_count = 0;
  163. X    (void) strip_comments(line_buffer);
  164. X        (void) check_for_bracket(line_buffer);
  165. X    while (next_name = strchr(line_buffer, ' ')){
  166. X        *next_name++ = '\0';
  167. X        while (*next_name == ' ')
  168. X            next_name++;
  169. X        curr_name = *to_names;
  170. X        curr_name += strlen(curr_name) + 1;
  171. X        (void) strcpy(*to_names++, line_buffer);
  172. X        *to_names = curr_name;
  173. X        (void) strcpy(line_buffer, next_name);
  174. X        name_count++;
  175. X    }
  176. X    if (strlen(line_buffer)){
  177. X        curr_name = *to_names;
  178. X        curr_name += strlen(curr_name) + 1;
  179. X        (void) strcpy(*to_names++, line_buffer);
  180. X        *to_names = curr_name;
  181. X        name_count++;
  182. X    }
  183. X    return name_count;
  184. X}
  185. X    
  186. X/*    FIX    Correct the order of the head lines */
  187. Xvoid
  188. Xbuild_the_header()
  189. X{
  190. X    struct passwd *login, *getpwnam(), *getpwuid();
  191. X    struct passwd *effective;
  192. X    struct tm *gmt;
  193. X    struct tm *loc;
  194. X    long tics;
  195. X    char hostname[9];
  196. X
  197. X    if(!(login = getpwnam(getlogin())))
  198. X        login = getpwuid(getuid());
  199. X    get_host_name(hostname);
  200. X    gmt = (struct tm *) malloc(sizeof (struct tm));
  201. X    tics = time((long *) 0);
  202. X    loc = gmtime(&tics );
  203. X    *gmt = *loc;
  204. X    loc = localtime(&tics );
  205. X    (void) fprintf(sfd, "%s\n", login->pw_name);
  206. X/* the Reply to: line doesn't look nice on xenix */
  207. X    (void) fprintf(sfd, "Reply-To:   %s@%s%s (%s)\n", login->pw_name,
  208. X        hostname, MYDOM, login->pw_comment);
  209. X/* I'm not sure about this so if it's wrong please tell me */
  210. X    if (getuid() != login->pw_uid){
  211. X        effective = getpwuid(getuid());
  212. X        (void) fprintf(sfd, "Sender:     %s@%s%s (%s)\n", 
  213. X            effective->pw_name, hostname, MYDOM,
  214. X            effective->pw_comment);
  215. X    }
  216. X    (void) fprintf(sfd, "Message-Id: <%d%02d%02d%02d%02d.%s%05d@%s%s>\n", 
  217. X        gmt->tm_year, (gmt->tm_mon + 1), gmt->tm_mday,
  218. X        gmt->tm_hour, gmt->tm_min,
  219. X        "AA", getpid(), hostname, MYDOM);
  220. X    (void) fprintf(sfd, "Date: %s, %d %s %d %02d:%02d:%02d GMT\n", 
  221. X        day_name[gmt->tm_wday], gmt->tm_mday, month[gmt->tm_mon],
  222. X        gmt->tm_year, gmt->tm_hour, gmt->tm_min, gmt->tm_sec);
  223. X    (void) fprintf(sfd, "From: %s@%s%s \(%s\)\n",
  224. X         login->pw_name, hostname, MYDOM, login->pw_comment);
  225. X/*  To help local people know when you sent the mail */
  226. X    if (loc->tm_isdst || strncmp(TIMEZONE_NAME(loc),  "GMT", 3))
  227. X        (void) fprintf(sfd,
  228. X            "X-Local-time: %s, %d %s %d %02d:%02d:%02d %s\n", 
  229. X            day_name[loc->tm_wday], loc->tm_mday,
  230. X            month[loc->tm_mon], loc->tm_year, loc->tm_hour,
  231. X            loc->tm_min, loc->tm_sec, TIMEZONE_NAME(loc));
  232. X}
  233. X
  234. Xvoid
  235. Xsend_the_message(arg_list)
  236. Xchar *arg_list[];
  237. X{
  238. X    int  cid, rid;
  239. X    int  child_stat;
  240. X
  241. X    /*fprintf(stderr, "%s\n", *arg_list);*/
  242. X
  243. X    if (cid = fork()){
  244. X        if ( (rid = wait((int *)&child_stat)) == -1){
  245. X            (void) fprintf(stderr, "%d %d %d %x\n",
  246. X                    cid, rid, errno, child_stat);
  247. X        } else  {
  248. X            cid = 0;
  249. X/* FIX I would like to unlink but can't since it causes smail to fail */
  250. X        /*(void) unlink(mail_spool);*/
  251. X        }
  252. X    } else {
  253. X        (void) execvp(*arg_list, arg_list);
  254. X    }
  255. X    return;
  256. X    
  257. X}
  258. X 
  259. X/* FIX  This is for xenix  System V can use unames */
  260. Xvoid
  261. Xget_host_name(hostname)
  262. Xchar *hostname;
  263. X{
  264. X    FILE *hfd;
  265. X    char *h;
  266. X    
  267. X    hfd = fopen("/etc/systemid", "r");
  268. X    if (hfd == NULL) {
  269. X#ifdef HOSTNAME
  270. X        strcpy(hostname, HOSTNAME);    /* maybe from smail defs.h */
  271. X#else
  272. X        strcpy(hostname, "UNKNOWN");
  273. X#endif
  274. X        return;
  275. X    }
  276. X    h = fgets(hostname, 9, hfd);
  277. X    (void) fclose(hfd);
  278. X    while (*h != '\0')
  279. X        if (*h == '\n')
  280. X            *h = '\0';
  281. X        else
  282. X            h++;
  283. X    return;
  284. X}
  285. X
  286. X/*    remove first word and any comments  */
  287. X/*    Note comment is totaly removed and replaced by space  */
  288. X/*    this may need changeing  */
  289. X/*    all space will be compressed to a single space  */
  290. X/*      FIX required to handle tabs at the moment \tword starting
  291. X    a line will be lost but thats not what I want */
  292. X
  293. Xstrip_comments(buff)
  294. Xchar *buff;
  295. X{
  296. X    char *begin, *end;
  297. X
  298. X    if (end = strchr(buff, ' ')){
  299. X        while (*end == ' ') end++;
  300. X        (void) strcpy(buff, end);
  301. X    }
  302. X    while(begin = strchr(buff, '(')){
  303. X        end = strchr(begin, ')');
  304. X        end++;
  305. X        (void) strcpy(begin, end);
  306. X    }
  307. X    end = strchr(buff, '\n');
  308. X    *end = '\0';
  309. X    return;
  310. X}
  311. X
  312. X
  313. X/*    This routine test the line for <machine readable field>
  314. X        if found then only those fields are left   */
  315. X
  316. Xcheck_for_bracket(buff)
  317. Xchar *buff;
  318. X{
  319. X    char *begin, *end;
  320. X
  321. X    while(begin = strchr(buff, '<')){
  322. X        begin++;
  323. X        (void) strcpy(buff, begin);
  324. X        end = strchr(begin, '>');
  325. X        *end = ' ';
  326. X        buff = end + 1;
  327. X    }
  328. X    return;
  329. X}
  330. X 
  331. END_OF_FILE
  332.   if test 7717 -ne `wc -c <'contrib/recmail.c'`; then
  333.     echo shar: \"'contrib/recmail.c'\" unpacked with wrong size!
  334.   fi
  335.   # end of 'contrib/recmail.c'
  336. fi
  337. if test -f 'contrib/recmail.sh' -a "${1}" != "-c" ; then 
  338.   echo shar: Will not clobber existing file \"'contrib/recmail.sh'\"
  339. else
  340.   echo shar: Extracting \"'contrib/recmail.sh'\" \(1657 characters\)
  341.   sed "s/^X//" >'contrib/recmail.sh' <<'END_OF_FILE'
  342. X#!/bin/sh
  343. X#  This is my version of a mailer that parses the To: lines and invokes the
  344. X#  domain-based mailer        mfr Jul 89
  345. X
  346. Xexport PATH || (echo "OOPS, this isn't sh.  Desperation time.  I will feed myself to sh."; sh $0; kill $$)
  347. X
  348. X# System dependencies
  349. X
  350. Xmailer="/usr/local/smtp"
  351. X# your site name
  352. Xcase undef in
  353. Xdefine) sitename=`hostname` ;;
  354. Xundef) sitename="puppsr" ;;
  355. Xesac
  356. X
  357. Xtest=test
  358. Xsed=/bin/sed
  359. Xecho=/bin/echo
  360. Xcat=/bin/cat
  361. Xgrep=/bin/grep
  362. Xrm=/bin/rm
  363. X
  364. Xdotdir=${DOTDIR-${HOME-$LOGDIR}}
  365. Xtmpart=$dotdir/.letter
  366. X
  367. X    $cat >$tmpart
  368. X
  369. X    case $mailer in
  370. X    *sendmail)
  371. X        $mailer -t <$tmpart
  372. X        ;;
  373. X# but recmail does not know about Bcc, alas
  374. X    *recmail)
  375. X        $mailer <$tmpart
  376. X        ;;
  377. X    *)
  378. X        set X `$sed <$tmpart -n -e '/^To:/{' -e 's/To: *//p' -e q -e '}'`
  379. X        shift
  380. X        set X "$@" `$sed <$tmpart -n -e '/^Cc:/{' -e 's/Cc: *//p' -e q -e '}'`
  381. X        shift
  382. X        set X "$@" `$sed <$tmpart -n -e '/^Bcc:/{' -e 's/Bcc: *//p' -e q -e '}'`
  383. X        shift
  384. X        for i in "$@"
  385. X        do
  386. X        thost=`echo $i | cut -s -d@ -f2`
  387. X        recip=`echo $i | cut -s -d@ -f1`
  388. X        sender=${LOGNAME}@${sitename}
  389. X        $grep -v "^Bcc:"  <$tmpart | $mailer $thost $sender $recip
  390. X        done
  391. X        ;;
  392. X    esac
  393. X    case $? in
  394. X    0)
  395. X        state=cleanup
  396. X        ;;
  397. X    *)
  398. X        state=rescue
  399. X        ;;
  400. X    esac
  401. Xcase $state in
  402. X    rescue)
  403. X    $cat $tmpart >> ${HOME-$LOGDIR}/dead.letter
  404. X    $echo "Message appended to ${HOME-$LOGDIR}/dead.letter"
  405. X    $echo "A copy may be temporarily found in $tmpart"
  406. X    exit
  407. X    ;;
  408. X    cleanup)
  409. X    case "${MAILRECORD-none}" in
  410. X    none)
  411. X        ;;
  412. X    *)  if $cat $tmpart >> $MAILRECORD; then
  413. X        $echo "Article appended to $MAILRECORD"
  414. X        else
  415. X        $echo "Cannot append to $MAILRECORD"
  416. X        fi
  417. X        ;;
  418. X    esac
  419. X    exit
  420. X    ;;
  421. X    esac
  422. Xdone
  423. X
  424. X
  425. END_OF_FILE
  426.   if test 1657 -ne `wc -c <'contrib/recmail.sh'`; then
  427.     echo shar: \"'contrib/recmail.sh'\" unpacked with wrong size!
  428.   fi
  429.   # end of 'contrib/recmail.sh'
  430. fi
  431. if test -f 'doc/NEWS-6.3' -a "${1}" != "-c" ; then 
  432.   echo shar: Will not clobber existing file \"'doc/NEWS-6.3'\"
  433. else
  434.   echo shar: Extracting \"'doc/NEWS-6.3'\" \(6036 characters\)
  435.   sed "s/^X//" >'doc/NEWS-6.3' <<'END_OF_FILE'
  436. XNew features in release 6.3 (compared to release 6.1.5):
  437. X--------------------------------------------------------
  438. X
  439. XMajor improvements:
  440. X    NNTP support
  441. X    nn can now use/update .newsrc (to a limited extent)
  442. X    Presentation of article header can be customized
  443. X    Full macro support
  444. X    Full folder maintenance
  445. X    Completion help available using '?' key
  446. X    Backup of rc file works!
  447. X    Much faster nngoback - not based on history file.
  448. X
  449. XChanges in standard key mappings:
  450. X    reading mode Z -> goto-menu
  451. X    reading mode N -> next-group
  452. X    reading mode p -> previous (was print)
  453. X    reading mode P -> print (was previous)
  454. X
  455. XNew commands:
  456. X    leave-article
  457. X    :define
  458. X    :man
  459. X    :map both ...
  460. X    :patch
  461. X    :pwd
  462. X    :rmail
  463. X    :show groups unsub
  464. X
  465. XNew variables:
  466. X    backup        (New functionality! It is set by default)
  467. X    confirm-append
  468. X    default-save-file
  469. X    delay-redraw
  470. X    header-lines
  471. X    mail
  472. X    mail-format
  473. X    mark-overlap
  474. X    newsrc
  475. X    overlap
  476. X    patch-cmd
  477. X    quick-save
  478. X    retry-on-error
  479. X    save-report
  480. X    word-key
  481. X
  482. XNew options:
  483. X    -m
  484. X    -s/    (regexp matching)
  485. X
  486. XDescription of new features (in mixed order):
  487. X---------------------------------------------
  488. X
  489. XNNTP support has been added (thanks to Rene Seindal @ diku.dk).
  490. X
  491. XOnline manual.
  492. X
  493. XRegular expression search in reading mode:  / and .
  494. X
  495. XRegular expression matching for subjects in -s/ option and G=/ command.
  496. X
  497. XArticles can be saved in a mail compatible format by setting the
  498. Xmail-format variable.
  499. X
  500. XThe article selection save files are now kept in network format if
  501. XNETWORK_DATABASE is defined, so reading news from different machines
  502. Xshould now work in a heterogeneous environment.
  503. X
  504. XAdded $F which expands to the group name with / instead of .  E.g. $F
  505. Xin rec.music.synth produces rec/music/synth
  506. X
  507. XFolder name "+" is expanded to the file name found in the new
  508. Xdefault-save-file variable (default +$F).
  509. X
  510. XWhen saving articles, the prompting for a file name can be disabled by
  511. Xsetting the quick-save variable (saving will be done in the default
  512. Xsave file).
  513. X
  514. Xnn will ask for confirmation before appending to existing files when
  515. Xconfirm-append is set.
  516. X
  517. XThe message after each save can be disabled by unsetting the
  518. Xsave-report variable.
  519. X
  520. XThe manual has been corrected to use the proper names for the
  521. Xmail-record and news-record variables.
  522. X
  523. X:unshar will create the directory if is does not exist.
  524. X
  525. XCustomized article header presentation through setting of header-lines
  526. Xvariable.
  527. X
  528. XComplete variable settings are now shown by :set
  529. X
  530. XFull macro support - you can now bind any sequence of commands to a
  531. Xsingle key (see the define command).
  532. X
  533. XIndividual articles in a folder can now be cancelled!  I.e. folders
  534. Xare now fully supported:  you can save, print, respond to, and cancel
  535. Xseparate articles in the folders created by nn. (Try the G +folder command).
  536. X
  537. XA global init file is now supported rather than just a global sequence file.
  538. X(You should avoid using the sequence file, because it might go away in
  539. Xa future release.)
  540. X
  541. XNn will now remember which articles you have seen on the menu (but not
  542. Xnecessarily selected) when you quit.  Confirming the question "use old
  543. Xselections" now also implies that nn will start on the same menu page
  544. Xas the one you quitted on.
  545. X
  546. XThere is a retry-on-error variable which can be set to a number of
  547. Xtimes attempts to open an article should be done before giving up.
  548. X
  549. XYou can now specify per group default save files in the init file (in
  550. Xthe group sequence).
  551. X
  552. XS+ is an addition to the old S* command which saves all the selected
  553. Xarticles in the group!
  554. X
  555. XWhen you have given a command that clears the screen, the screen is
  556. Xnow redrawn by default when the command terminates.  To get the 6.1
  557. Xbehaviour (prompt for a new : command), you must set the delay-redraw
  558. Xvariable.
  559. X
  560. XWhen input completion is possible, you can now use the ? key to get a
  561. Xlist of the possible completions.
  562. X
  563. XCompletion is now possible when entering an extended command
  564. X(:command) - both for the command name itself and the arguments.
  565. X(The only exception is when entering the VALUE of a variable.)
  566. X
  567. XThe 'backup' variable now works "the right way": It makes a backup of
  568. Xthe rc file on start-up.  nn can then update the rc file after reading
  569. Xeach group (increased security), and still restore the old rc file
  570. Xwith the :q! command.  The backup variable is now set by default.
  571. X
  572. XYou can set the 'mail' variable to make nn check for the arrival of
  573. Xmail, and you can use the ':rmail' command to read the mail!  (But it
  574. Xis not a full mail interface, e.g. you cannot delete messages, cc:
  575. Xfields are not supported if you reply to a message, etc.)
  576. X
  577. Xnn will now synchronize with the .newsrc file if the "newsrc" variable
  578. Xis set.  However, it does NOT understand about individual articles
  579. Xthat are marked as unread (e.g. 5-8 in 1-4,9-24) - it will silently
  580. Xmark such articles as read (e.g. read the above as 1-24).
  581. X  I don't know anybody who uses this, but if somebody wants to improve
  582. Xon it, feel free to do it.  If you just want to to use rn from time to
  583. Xtime, the current support will be sufficient if you always read all
  584. Xthe articles in a group once you have started reading it (or you read
  585. Xthe articles in the normal article number order).
  586. X
  587. XWhen saving an article with a full or partial header in a folder,
  588. Xlegal article header lines in the body of the article are now
  589. Xescaped with a tilde, e.g. ~From: ....., to avoid having the
  590. Xarticles split improperly when the folder is later opened by nn.
  591. X
  592. XThere is a new C)onf command to nnadmin to print the current
  593. Xconfiguration (directories, files, network, etc.).
  594. X
  595. XThe G (goto-group) command now allows you to jump to an unread group
  596. Xin the group sequence without entering a new recursive menu level.
  597. X
  598. XThe manual nn.1 has been clarified regarding the effect of options:
  599. XThe init file is read prior to parsing the options, and the options
  600. Xwill TOGGLE the CURRENT value of boolean variables.
  601. X
  602. X
  603. XRemoved backwards compatibility
  604. X-------------------------------
  605. X
  606. XSupport for upgrading from release 3, 4, or 5 has been removed, since
  607. Xthe sites using these releases have all updated to 6.1.
  608. X
  609. XAlso the support for pre 2.11 news has been removed (OLD_NEWS).
  610. X
  611. END_OF_FILE
  612.   if test 6036 -ne `wc -c <'doc/NEWS-6.3'`; then
  613.     echo shar: \"'doc/NEWS-6.3'\" unpacked with wrong size!
  614.   fi
  615.   # end of 'doc/NEWS-6.3'
  616. fi
  617. if test -f 'inst.sh' -a "${1}" != "-c" ; then 
  618.   echo shar: Will not clobber existing file \"'inst.sh'\"
  619. else
  620.   echo shar: Extracting \"'inst.sh'\" \(7589 characters\)
  621.   sed "s/^X//" >'inst.sh' <<'END_OF_FILE'
  622. X
  623. X# (Large) prefix inserted above by Make
  624. X
  625. X# BSD systems keep chown in /etc
  626. XPATH="$PATH:/etc"
  627. X
  628. Xcase "$1" in
  629. Xmkdir)
  630. X    if [ -n "$2" -a ! -d "$2"/. ]
  631. X    then
  632. X        mkdir $2
  633. X        if [ ! -d "$2" ] ; then
  634. X            echo "Cannot create directory $2"
  635. X            exit 1
  636. X        fi
  637. X        chmod $3 $2
  638. X        chgrp $GROUP $2
  639. X        chown $OWNER $2
  640. X        echo Created directory $2
  641. X    fi
  642. X    exit 0
  643. X    ;;
  644. Xcopy)
  645. X    cp $4 $3
  646. X    chmod $2 $3/$4
  647. X    chgrp $GROUP $3/$4
  648. X    chown $OWNER $3/$4
  649. X    echo "$4 -> $3/$4"
  650. X    exit 0
  651. X    ;;
  652. Xchmod)
  653. X    chmod $2 $3
  654. X    chgrp $GROUP $3
  655. X    chown $OWNER $3
  656. X    exit 0
  657. X    ;;
  658. X
  659. Xinews)
  660. X    if [ ! -d "${INEWS_DIR}"/. ]
  661. X    then
  662. X        ../inst mkdir ${INEWS_DIR} 755 || exit 1
  663. X    fi
  664. X    echo Installing $2 in $INEWS
  665. X    cp $2 $INEWS && ../inst chmod 755 $INEWS
  666. X    exit 0
  667. X    ;;
  668. Xesac
  669. X
  670. Xset -u
  671. X
  672. X(
  673. Xif $NNTP
  674. Xthen
  675. X    :
  676. Xelse
  677. X    if [ ! -d "$SPOOL"/. ]
  678. X    then
  679. X        echo Error: News spool directory $SPOOL not found.
  680. X    fi
  681. X
  682. X    if [ ! -d "$NLIB"/. ]
  683. X    then
  684. X        echo Error: News lib directory $NLIB not found.
  685. X    fi
  686. Xfi
  687. X
  688. Xset $INEWS
  689. Xif [ ! -f "$1" ]
  690. Xthen
  691. X    echo ERROR: Inews program $INEWS not found.
  692. Xfi
  693. X
  694. Xset $RECMAIL
  695. Xif [ ! -f "$1" ]
  696. Xthen
  697. X    echo ERROR: Mailer program $RECMAIL not found.
  698. Xfi
  699. X) > ErrorCheck
  700. X
  701. Xif [ -s ErrorCheck ]
  702. Xthen
  703. X    cat ErrorCheck
  704. X    echo "Hit return to continue"
  705. X    read X
  706. Xfi
  707. Xrm -f ErrorCheck
  708. X
  709. XLOOP=true
  710. Xwhile $LOOP
  711. Xdo
  712. X
  713. Xif [ $# -ge 1 ]
  714. Xthen
  715. X    OPT="$1"
  716. X    shift
  717. X    if [ $# -eq 0 ]
  718. X    then
  719. X        LOOP=false
  720. X    fi
  721. X    PAUSE=false
  722. Xelse
  723. X    PAUSE=true
  724. X
  725. Xecho
  726. Xecho
  727. Xecho "INSTALLATION"
  728. Xecho ""
  729. Xecho "1) Master programs (machine dependent)"
  730. Xecho "2) User programs (machince dependent, shareable)"
  731. Xecho "3) Help files and auxiliary programs (shareable)"
  732. Xecho "4) Documentation (shareable)"
  733. Xecho "5) Online manual (shareable with 3)"
  734. Xecho ""
  735. Xecho "INIT) Initialize database"
  736. Xecho ""
  737. Xecho "s) Server installation:  1 + 2 + 3 + 4 + 5"
  738. Xecho "n) Network installation:     2 + 3 + 4 + 5"
  739. Xecho "m) Master installation:  1"
  740. Xecho "c) Client installation:      2"
  741. Xecho "u) Update after patch"
  742. Xecho "q) Quit"
  743. Xecho ""
  744. Xif ./usercheck 0 ; then
  745. X    :
  746. Xelse
  747. X  echo "Warning: not running as super user"
  748. X  echo ""
  749. Xfi
  750. X${AWK} 'BEGIN{printf "Select option: "}' < /dev/null
  751. Xread OPT
  752. Xecho
  753. X
  754. Xfi
  755. X
  756. Xcase $OPT in
  757. X
  758. Xs*|a*)
  759. X    OPT="master bin aux help online man"
  760. X    ;;
  761. Xu*)
  762. X    OPT=""
  763. X    if [ -f "$MASTER/nnmaster" ]
  764. X    then
  765. X        OPT="$OPT master"
  766. X    fi
  767. X    if [ -f "$BIN/nn" ]
  768. X    then
  769. X        OPT="$OPT bin"
  770. X    fi
  771. X    if [ -f "$LIB/aux" ]
  772. X    then
  773. X        OPT="$OPT aux help"
  774. X    fi
  775. X    if [ -f "$DMAN_DIR/nnmaster.$DMAN_SECT" ]
  776. X    then
  777. X        OPT="$OPT man"
  778. X    fi
  779. X    if [ -f "$HELP/Manual" ]
  780. X    then
  781. X        OPT="$OPT online"
  782. X    fi
  783. X    ;;
  784. X1|m)
  785. X    OPT=master
  786. X    ;;
  787. Xn)
  788. X    OPT="bin aux help online man"
  789. X    ;;
  790. X2|c)
  791. X    OPT=bin
  792. X    ;;
  793. X3)
  794. X    OPT="aux help"
  795. X    ;;
  796. Xx)
  797. X    OPT=aux
  798. X    ;;
  799. Xh)
  800. X    OPT=help
  801. X    ;;
  802. X4)
  803. X    OPT="man"
  804. X    ;;
  805. X5)
  806. X    OPT="online"
  807. X    ;;
  808. XINIT)
  809. X    OPT=init
  810. X    ;;
  811. Xq*|"")
  812. X    if [ -f $MASTER/nnmaster -a ! -f $MASTER/MPID ]
  813. X    then
  814. X        echo "Remember to restart $MASTER/nnmaster"
  815. X    fi
  816. X    exit 0
  817. X    ;;
  818. X*)
  819. X    echo "Unrecognized option: $OPT"
  820. X    exit 1
  821. X    ;;
  822. Xesac
  823. X
  824. Xfor OP in $OPT
  825. Xdo
  826. Xcase "$OP" in
  827. X
  828. Xmaster)
  829. X    ./inst mkdir $MASTER 755 || exit 1
  830. X
  831. X    if [ -f $MASTER/nnmaster ]
  832. X    then
  833. X        (
  834. X        cd $MASTER
  835. X        if [ -f MPID ]
  836. X        then
  837. X            echo "Stopping running master..."
  838. X            kill -1 `cat MPID`
  839. X            sleep 5
  840. X            rm -f MPID
  841. X        fi
  842. X        mv nnmaster nnmaster.old
  843. X       )
  844. X    fi
  845. X
  846. X    echo Installing master in $MASTER
  847. X
  848. X    for prog in $MASTER_PROG
  849. X    do
  850. X        ./inst copy 755 $MASTER $prog
  851. X    done
  852. X
  853. X    chmod 4750 $MASTER/nnmaster
  854. X    ;;
  855. X
  856. Xbin)
  857. X    echo
  858. X    if [ ! -d "$BIN"/. ]
  859. X    then
  860. X        echo Directory $BIN does not found!
  861. X        exit 1
  862. X    fi
  863. X
  864. X    echo Installing user programs in $BIN
  865. X
  866. X    if [ -f $BIN/nn ]
  867. X    then
  868. X         (
  869. X        cd $BIN
  870. X        mv nn nn.old
  871. X        rm -f $BIN_PROG $BIN_LINK
  872. X         )
  873. X    fi
  874. X
  875. X    for prog in $BIN_PROG
  876. X    do
  877. X        ./inst copy 755 $BIN $prog
  878. X    done
  879. X
  880. X    for link in $BIN_LINK
  881. X    do
  882. X        ln $BIN/nn $BIN/$link
  883. X        echo $link linked to nn
  884. X    done
  885. X
  886. X    if [ -f $BIN/nnacct ] ; then
  887. X        chmod 4755 $BIN/nnacct
  888. X        echo nnacct is setuid ${OWNER}.
  889. X    fi
  890. X    ;;
  891. X
  892. Xaux)
  893. X    echo
  894. X    ./inst mkdir $LIB 755 || exit 1
  895. X
  896. X    echo Installing auxiliary programs in $LIB
  897. X
  898. X    for prog in $LIB_PROG
  899. X    do
  900. X        ./inst copy 755 $LIB $prog
  901. X    done
  902. X
  903. X    ./mkprefix conf > ${LIB}/conf
  904. X    grep "^#" config.h |
  905. X    sed -e '/_MAN_/d' -e 's/[     ]*\/\*.*$//' >> ${LIB}/conf
  906. X    ./inst chmod 644 ${LIB}/conf
  907. X    ;;
  908. X
  909. Xhelp)
  910. X    ./inst mkdir $HELP 755 || exit 1
  911. X
  912. X    echo
  913. X    echo Installing help files in $HELP
  914. X
  915. X    for h in `grep '^help/' MANIFEST | sed 's/^help\/\([a-z0-9.]*\).*$/\1/'`
  916. X    do
  917. X        ./cvt-help < help/$h > $HELP/$h
  918. X        ./inst chmod 644 $HELP/$h
  919. X        echo $h
  920. X    done
  921. X    ;;
  922. X
  923. Xman)
  924. X    echo
  925. X    echo Installing manuals
  926. X
  927. X    {
  928. X        echo $UMAN_DIR $UMAN_SECT .1
  929. X        echo $SMAN_DIR $SMAN_SECT .1m
  930. X        echo $DMAN_DIR $DMAN_SECT .8
  931. X    } |
  932. X    while read DIR SECT SRC
  933. X    do
  934. X
  935. X        if [ -d "$DIR"/. -a -w "$DIR"/. ]
  936. X        then
  937. X            for i in man/*$SRC
  938. X            do
  939. X                MAN=`basename ${i} $SRC`
  940. X                NEW=$DIR/${MAN}.$SECT
  941. X                cp $i $NEW
  942. X                ./inst chmod 644 $NEW
  943. X                echo $MAN in $NEW
  944. X            done
  945. X        else
  946. X            echo $DIR not found or not writeable
  947. X        fi
  948. X    done
  949. X    ;;
  950. X
  951. Xonline)
  952. X    ./inst mkdir $HELP 755 || exit 1
  953. X
  954. X    MAN=$HELP/Manual
  955. X
  956. X    echo
  957. X    echo "Formatting online manual $MAN"
  958. X    echo ".... (continues in background) ...."
  959. X
  960. X    rm -f $MAN
  961. X
  962. X    (
  963. X    sed     -e 's/\\f[BPI]//g' \
  964. X        -e 's/\\-/-/g' -e 's/\\&//g' -e 's/\\e/\\/g' \
  965. X        -e '/^\.\\"ta/p' -e '/^\.\\"/d' \
  966. X        -e '/^\.nf/d' -e '/^\.fi/d' \
  967. X        -e '/^\.if/d' -e '/^\.ta/d' -e '/^\.nr/d' \
  968. X        -e '/^\.in/d' -e 's/^\.[BI] //' \
  969. X        `grep '^man/' MANIFEST | ${AWK} '{print $1}'` |
  970. X    ${AWK} -f format.awk - > $MAN
  971. X
  972. X    ./inst chmod 644 $MAN
  973. X    ) &
  974. X    ;;
  975. X
  976. Xinit)
  977. X    echo
  978. X    ./inst mkdir "$DB" 755 || exit 1
  979. X    ./inst mkdir "$DBDATA" 755 || exit 1
  980. X
  981. X    if $NNTP ; then
  982. X        if [ x"$NNTPCACHE" != "x" ] ; then
  983. X            ./inst mkdir "$NNTPCACHE" 777 || exit 1
  984. X        fi    
  985. X        ILIMIT=50
  986. X        DFLT=50
  987. X
  988. X        cat <<'EOF'
  989. X    
  990. XWhen nnmaster is started the first time after initializing nn's
  991. Xdatabase, it will attempt to fetch all the articles from the nntp
  992. Xserver.  It does this by successively requesting each article in the
  993. Xrange min..last obtained from the NNTP server.  Often the 'min' number
  994. Xis unreliable or even zero (Cnews doesn't maintain it).  This means
  995. Xthat the nnmaster will request a lot of non-existing articles from the
  996. Xserver, causing a lot of network traffic.
  997. X
  998. XTo limit this activity, nn will normally only attempt to fetch the
  999. Xfifty newest articles in each group.  This shouldn't really be a
  1000. Xproblem since that will give you enough news to start with, and the
  1001. Xolder articles will probably be expired in a few days anyway.
  1002. X
  1003. XYou can change this limit if you like.  Or you can disable this
  1004. Xlimitation completely if you trust the min field by giving a 0 limit.
  1005. X
  1006. XEOF
  1007. X    else
  1008. X        ILIMIT=""
  1009. X        DFLT="none"
  1010. X
  1011. X        cat <<'EOF'
  1012. X
  1013. XIf the 'min' field in your active file is not reliable, nnmaster can
  1014. Xwaste a lot of time trying to locate non-existing articles in the news
  1015. Xgroups when it is collecting the available articles the first time it
  1016. Xis started after the database is initialized.  This is especially true
  1017. Xwith Cnews where the min field is not normally maintained.
  1018. X
  1019. XTo limit the efforts during the initial collection, you can set a
  1020. Xlimit on the number of articles in each group which nnmaster should
  1021. Xtry to locate in each group.  This may get you running faster, and it
  1022. Xshouldn't matter much anyway since the articles that may be ignored
  1023. Xwill be the oldest articles in the group, and they will probably be
  1024. Xexpired soon anyway.  A value in the range 100-500 should be more than
  1025. Xenough.  If you don't specify a limit, all articles will be collected,
  1026. Xbut it may take quite some time if the min fields are unreliable.
  1027. XEOF
  1028. X    fi
  1029. X
  1030. X    ${AWK} 'END{printf "Initial article limit ('"$DFLT"') "}' < /dev/null
  1031. X    read L
  1032. X    if [ -n "$L" ] ; then
  1033. X        ILIMIT="$L"
  1034. X    fi
  1035. X
  1036. X    echo Running nnmaster -I $ILIMIT to initialize database....
  1037. X    echo
  1038. X    $MASTER/nnmaster -I $ILIMIT
  1039. X    echo
  1040. X    echo "Now start $MASTER/nnmaster [ -D ] [ -r ]"
  1041. X    ;;
  1042. Xesac
  1043. X
  1044. Xdone
  1045. X
  1046. Xif [ -f $LOG ]
  1047. Xthen
  1048. X    chmod 666 $LOG
  1049. Xfi
  1050. X
  1051. Xif $PAUSE
  1052. Xthen
  1053. X${AWK} 'BEGIN{printf("\nHit return to continue....")}' < /dev/null
  1054. Xread X
  1055. Xfi
  1056. Xdone
  1057. END_OF_FILE
  1058.   if test 7589 -ne `wc -c <'inst.sh'`; then
  1059.     echo shar: \"'inst.sh'\" unpacked with wrong size!
  1060.   fi
  1061.   # end of 'inst.sh'
  1062. fi
  1063. if test -f 'news.c' -a "${1}" != "-c" ; then 
  1064.   echo shar: Will not clobber existing file \"'news.c'\"
  1065. else
  1066.   echo shar: Extracting \"'news.c'\" \(6563 characters\)
  1067.   sed "s/^X//" >'news.c' <<'END_OF_FILE'
  1068. X/*
  1069. X *    (c) Copyright 1990, Kim Fabricius Storm.  All rights reserved.
  1070. X *
  1071. X *    Article header parsing.
  1072. X */
  1073. X
  1074. X#include "config.h"
  1075. X#include "news.h"
  1076. X
  1077. Xexport retry_on_error = 0;
  1078. X
  1079. Xchar *parse_header(f, hdr_field, modes, hdrbuf)
  1080. XFILE             *f;
  1081. Xchar             **(*hdr_field)();
  1082. Xint             modes;
  1083. Xnews_header_buffer    hdrbuf;
  1084. X{
  1085. X    register char *bp, *cp, **fptr;
  1086. X    int siz, all, date_only;
  1087. X    off_t pos;
  1088. X
  1089. X    pos = ftell(f);
  1090. X
  1091. X/* read first NEWS_HEADER_BUFFER bytes (should be more than enough) */
  1092. X
  1093. X    all     = modes & GET_ALL_FIELDS;
  1094. X    date_only     = modes & GET_DATE_ONLY;
  1095. X
  1096. X    siz = fread(hdrbuf, sizeof(char), NEWS_HEADER_BUFFER, f);
  1097. X
  1098. X    bp = hdrbuf;
  1099. X    bp[siz-1] = NUL;
  1100. X
  1101. X    /* decode subarticle header */
  1102. X    while (*bp) {
  1103. X
  1104. X    if (*bp == NL) {    /* empty line following header */
  1105. X        ++bp;
  1106. X        fseek(f, pos + (bp - hdrbuf), 0);
  1107. X        return bp;
  1108. X    }
  1109. X
  1110. X    if (*bp == SP) {    /* for comp.ai.neural-nets digests */
  1111. X        bp++;        /* which have <NL><space><NL> after header */
  1112. X        continue;
  1113. X    }
  1114. X
  1115. X    if (date_only && *bp != 'D')
  1116. X        fptr = NULL;
  1117. X    else
  1118. X        if (fptr = (*hdr_field)(bp, all)) {
  1119. X        while (*bp && *bp != ':' && isascii(*bp) && !isspace(*bp))
  1120. X            bp++;
  1121. X        bp++;
  1122. X        while (*bp && isascii(*bp) && isspace(*bp) && *bp != NL) bp++;
  1123. X        *fptr = bp;
  1124. X        }
  1125. X
  1126. X    while (*bp && *bp != NL) bp++;
  1127. X
  1128. X    /* Assume that continued lines are never empty! */
  1129. X    if (fptr && bp == *fptr) *fptr = NULL;
  1130. X
  1131. X    while (*bp) {        /* look for continued lines */
  1132. X        cp = bp + 1;
  1133. X        while (*cp && isascii(*cp) && isspace(*cp) && *cp != NL) cp++;
  1134. X
  1135. X        if (cp == bp + 1) {
  1136. X        /* next line is empty or not indented */
  1137. X        *bp++ = NUL;
  1138. X        break;
  1139. X        }
  1140. X
  1141. X        if (*cp == NUL || *cp == NL) {
  1142. X        /* next line is not empty, but blank line */
  1143. X        *bp = NUL;
  1144. X        bp = cp;    /* assume end of header */
  1145. X        break;
  1146. X        }
  1147. X
  1148. X        *bp = SP;        /* substitute NL with SPACE */
  1149. X        bp = cp;
  1150. X        while (*bp && *bp != NL) bp++;
  1151. X    }
  1152. X    }
  1153. X
  1154. X    return bp;
  1155. X}
  1156. X
  1157. Xstatic char **art_hdr_field(lp, all)
  1158. Xregister char *lp;
  1159. Xint all;
  1160. X{
  1161. X
  1162. X#define check(name, lgt, field) \
  1163. X    if (isascii(lp[lgt]) && isspace(lp[lgt]) && strncmp(name, lp, lgt) == 0)\
  1164. X    return &news.field
  1165. X
  1166. X    switch (*lp++) {
  1167. X
  1168. X     case 'A':
  1169. X     case 'a':
  1170. X    if (!all) break;
  1171. X    check("pproved:",     8, ng_appr);
  1172. X    break;
  1173. X
  1174. X     case 'B':
  1175. X     case 'b':
  1176. X    check("ack-References:", 15, ng_bref);
  1177. X    break;
  1178. X
  1179. X     case 'D':
  1180. X     case 'd':
  1181. X    check("ate:",          4, ng_date);
  1182. X    if (!all) break;
  1183. X    check("ate-Received:",    13, ng_rdate);
  1184. X    check("istribution:",     12, ng_dist);
  1185. X    break;
  1186. X
  1187. X     case 'F':
  1188. X     case 'f':
  1189. X    check("rom:",         4, ng_from);
  1190. X    if (!all) break;
  1191. X    check("ollowup-To:",    11, ng_follow);
  1192. X    check("ollowup-to:",    11, ng_follow);
  1193. X    break;
  1194. X
  1195. X     case 'K':
  1196. X     case 'k':
  1197. X    if (!all) break;
  1198. X    check("eywords:",     8, ng_keyw);
  1199. X    break;
  1200. X
  1201. X     case 'L':
  1202. X     case 'l':
  1203. X    check("ines:",          5, ng_xlines);
  1204. X    break;
  1205. X
  1206. X     case 'M':
  1207. X     case 'm':
  1208. X    if (!all) break;
  1209. X    if (strncmp(lp, "essage-", 7)) break;
  1210. X    lp += 7;
  1211. X    check("ID:",    3, ng_ident);
  1212. X    check("Id:",    3, ng_ident);
  1213. X    check("id:",    3, ng_ident);
  1214. X    break;
  1215. X
  1216. X     case 'N':
  1217. X     case 'n':
  1218. X    check("ewsgroups:",    10, ng_groups);
  1219. X    break;
  1220. X
  1221. X     case 'O':
  1222. X     case 'o':
  1223. X    if (!all) break;
  1224. X    check("rganization:",    12, ng_org);
  1225. X    check("rganisation:",    12, ng_org);
  1226. X    break;
  1227. X
  1228. X     case 'P':
  1229. X     case 'p':
  1230. X    if (!all) break;
  1231. X    check("ath:",         4, ng_path);
  1232. X    break;
  1233. X
  1234. X     case 'R':
  1235. X     case 'r':
  1236. X    check("eferences:",    10, ng_ref);
  1237. X    check("eply-To:",     8, ng_reply);
  1238. X    check("eply-to:",     8, ng_reply);
  1239. X    break;
  1240. X
  1241. X     case 'S':
  1242. X     case 's':
  1243. X    check("ubject:",     7, ng_subj);
  1244. X    if (news.ng_from == NULL)
  1245. X        check("ender:",     6, ng_from);
  1246. X    if (!all) break;
  1247. X    check("ummary:",     7, ng_summ);
  1248. X    break;
  1249. X
  1250. X     case 'T':
  1251. X     case 't':
  1252. X    check("itle:",          5, ng_subj);
  1253. X    break;
  1254. X    }
  1255. X
  1256. X    return NULL;
  1257. X
  1258. X#undef check
  1259. X}
  1260. X
  1261. Xis_header_line(line)
  1262. Xchar *line;
  1263. X{
  1264. X    return art_hdr_field(line, 0) != (char **)NULL;
  1265. X}
  1266. X
  1267. X
  1268. XFILE *open_news_article(art, modes, buffer1, buffer2)
  1269. Xarticle_header         *art;
  1270. Xint             modes;
  1271. Xnews_header_buffer    buffer1, buffer2;
  1272. X{
  1273. X    char *body;
  1274. X    char *digest_buffer;
  1275. X    char *parse_header();
  1276. X    struct stat statb;
  1277. X    int retry;
  1278. X    FILE *f;
  1279. X#ifdef NNTP
  1280. X    int lazy;
  1281. X    FILE *nntp_get_article();
  1282. X#endif /* NNTP */
  1283. X
  1284. X    if (art->flag & A_FOLDER) {
  1285. X    f = open_file(group_path_name, OPEN_READ);
  1286. X    if (f == NULL) return NULL;
  1287. X    fseek(f, art->hpos, 0);
  1288. X#ifdef NNTP
  1289. X    } else
  1290. X    if (use_nntp) {
  1291. X    lazy = (current_group->master_flag & M_ALWAYS_DIGEST) == 0
  1292. X        && (modes & LAZY_BODY) ? 1 : 0;
  1293. X    f = nntp_get_article(art->a_number, lazy);
  1294. X    if (f == NULL) return NULL;
  1295. X#endif /* NNTP */
  1296. X    } else {
  1297. X    sprintf(group_file_name, "%d", art->a_number);
  1298. X
  1299. X    retry = retry_on_error;
  1300. X    while ((f = open_file(group_path_name, OPEN_READ)) == NULL)
  1301. X        if (--retry < 0) return NULL;
  1302. X
  1303. X    /* necessary because empty files wreak havoc */
  1304. X    if (fstat(fileno(f), &statb) < 0 ||
  1305. X        statb.st_size < art->lpos || statb.st_size <= (off_t)0) {
  1306. X        fclose(f);
  1307. X        return who_am_i == I_AM_MASTER ? (FILE *)1 : NULL;
  1308. X    }
  1309. X    }
  1310. X
  1311. X    digest_buffer = buffer1;
  1312. X
  1313. X    if (modes & FILL_NEWS_HEADER) {
  1314. X
  1315. X    news.ng_from     = NULL;
  1316. X    news.ng_reply     = NULL;
  1317. X    news.ng_name     = NULL;
  1318. X    news.ng_subj     = NULL;
  1319. X    news.ng_groups     = NULL;
  1320. X    news.ng_ref     = NULL;
  1321. X    news.ng_bref     = NULL;
  1322. X
  1323. X    news.ng_xlines     = NULL;
  1324. X
  1325. X    if (modes & GET_ALL_FIELDS) {
  1326. X        news.ng_path     = NULL;
  1327. X        news.ng_reply     = NULL;
  1328. X        news.ng_ident     = NULL;
  1329. X        news.ng_follow     = NULL;
  1330. X        news.ng_keyw     = NULL;
  1331. X        news.ng_dist     = NULL;
  1332. X        news.ng_org     = NULL;
  1333. X        news.ng_appr     = NULL;
  1334. X        news.ng_summ    = NULL;
  1335. X        news.ng_date    = NULL;
  1336. X        news.ng_rdate    = NULL;
  1337. X    }
  1338. X
  1339. X    if (modes & GET_DATE_ONLY)
  1340. X        news.ng_date    = NULL;
  1341. X
  1342. X    body = parse_header(f, art_hdr_field, modes, buffer1);
  1343. X
  1344. X    news.ng_lines = news.ng_xlines ? atoi(news.ng_xlines) : -1;
  1345. X
  1346. X    if (modes & FILL_OFFSETS) {
  1347. X        art->fpos = news.ng_fpos = ftell(f);
  1348. X
  1349. X        fseek(f, (off_t)0, 2);
  1350. X        news.ng_lpos = ftell(f);
  1351. X    }
  1352. X#ifdef NNTP
  1353. X    else if (use_nntp && (art->flag & A_DIGEST) == 0) {
  1354. X        fseek(f, (off_t)0, 2);
  1355. X        art->lpos = ftell(f);
  1356. X    }
  1357. X#endif
  1358. X
  1359. X    news.ng_flag = 0;
  1360. X
  1361. X    if (news.ng_appr) news.ng_flag |= N_MODERATED;
  1362. X
  1363. X    if (modes & DIGEST_CHECK && is_digest()) news.ng_flag |= N_DIGEST;
  1364. X
  1365. X#ifdef NNTP
  1366. X    if (use_nntp && lazy && news.ng_flag & N_DIGEST) {
  1367. X        fclose(f);
  1368. X        f = nntp_get_article(art->a_number, 2);
  1369. X        if (f == NULL) return NULL;
  1370. X    }
  1371. X#endif
  1372. X    digest_buffer = buffer2;
  1373. X    }
  1374. X#ifdef NNTP
  1375. X    else if (use_nntp && (art->flag & A_DIGEST) == 0) {
  1376. X    fseek(f, (off_t)0, 2);
  1377. X    art->lpos = ftell(f);
  1378. X    }
  1379. X#endif
  1380. X
  1381. X    if (modes & FILL_DIGEST_HEADER) {
  1382. X    fseek(f, art->hpos, 0);
  1383. X    parse_digest_header(f, modes & GET_ALL_FIELDS, digest_buffer);
  1384. X    }
  1385. X
  1386. X    fseek(f, (modes & SKIP_HEADER) ? art->fpos : art->hpos, 0);
  1387. X
  1388. X    return f;
  1389. X}
  1390. END_OF_FILE
  1391.   if test 6563 -ne `wc -c <'news.c'`; then
  1392.     echo shar: \"'news.c'\" unpacked with wrong size!
  1393.   fi
  1394.   # end of 'news.c'
  1395. fi
  1396. if test -f 'reroute.c' -a "${1}" != "-c" ; then 
  1397.   echo shar: Will not clobber existing file \"'reroute.c'\"
  1398. else
  1399.   echo shar: Extracting \"'reroute.c'\" \(7348 characters\)
  1400.   sed "s/^X//" >'reroute.c' <<'END_OF_FILE'
  1401. X/*
  1402. X *    (c) Copyright 1990, Kim Fabricius Storm.  All rights reserved.
  1403. X *
  1404. X *    Reply address rewriting.
  1405. X */
  1406. X
  1407. X#include "config.h"
  1408. X
  1409. X#define TRACE
  1410. X
  1411. X
  1412. X#ifdef HAVE_ROUTING
  1413. X
  1414. Xreroute(route, address)
  1415. Xchar *route, *address;
  1416. X{
  1417. X    char *name, *atpos;
  1418. X    register char *sp;
  1419. X    register c;
  1420. X
  1421. X    if (atpos = strchr(address, '@')) {
  1422. X    name = atpos;
  1423. X
  1424. X    while (--name >= address)
  1425. X        if (isspace(*name) || *name == '<') {
  1426. X        name++;
  1427. X        break;
  1428. X        }
  1429. X    if (name < address) name++;
  1430. X
  1431. X    for (sp = atpos; c = *sp; sp++)
  1432. X        if (isspace(c) || c == '>') break;
  1433. X
  1434. X    *sp = NUL;
  1435. X    strcpy(route, name);
  1436. X    *sp = c;
  1437. X    } else
  1438. X    strcpy(route, address);
  1439. X    return 1;
  1440. X}
  1441. X
  1442. X#else
  1443. X
  1444. X
  1445. X#ifdef TRACE
  1446. XFILE *route_trace = NULL;
  1447. X#endif
  1448. Xstatic char cmdc;    /* we need this for trace output */
  1449. X
  1450. X
  1451. Xstatic char *cstreq(string, match)
  1452. Xchar *string, *match;
  1453. X{
  1454. X    register char *s1, *s2;
  1455. X    s1 = string;
  1456. X
  1457. Xnext_part:
  1458. X    s2 = match;
  1459. X
  1460. X    while (isspace(*s1) || *s1 == ',') s1++;
  1461. X
  1462. X    while (*s2) {
  1463. X    if (*s1 == NUL || isspace(*s1)) return NULL;
  1464. X    if (*s1 == ',') goto next_part;
  1465. X    if (toupper(*s1) != toupper(*s2)) break;
  1466. X    s1++, s2++;
  1467. X    }
  1468. X
  1469. X    if (*s2 == NUL && (*s1 == NUL || isspace(*s1) || *s1 == ',')) {
  1470. X    if (*s1 == ',') while (*s1 && !isspace(*s1)) s1++;
  1471. X#ifdef TRACE
  1472. X    if (route_trace)
  1473. X        fprintf(route_trace, "/%c %s=%s -> %s", cmdc, string, match, s1);
  1474. X#endif
  1475. X    return s1;
  1476. X    }
  1477. X
  1478. X    while (*s1 && !isspace(*s1)) {
  1479. X    if (*s1 == ',') goto next_part;
  1480. X    s1++;
  1481. X    }
  1482. X
  1483. X    return NULL;
  1484. X}
  1485. X
  1486. X
  1487. Xstatic char *cstrcpy(s1, s2)
  1488. Xregister char *s1, *s2;
  1489. X{
  1490. X    while (*s2 && isspace(*s2)) s2++;
  1491. X    while (*s2 && !isspace(*s2) && *s2 != ',') *s1++ = *s2++;
  1492. X    *s1 = NUL;
  1493. X    return s1;
  1494. X}
  1495. X
  1496. X/*
  1497. X * lookup site,domain in routes database
  1498. X * if not found and bang is non-empty, use bang default if it exist
  1499. X */
  1500. X
  1501. Xstatic find_route(route, remote_user, remote_host, remote_domain, bang)
  1502. Xchar *route, *remote_user, *remote_host, *remote_domain, *bang;
  1503. X{
  1504. X    char line[512];        /* line from route file */
  1505. X    register char *lp;        /* current line position */
  1506. X    char *routep;               /* ptr into route */
  1507. X    char *pattern;        /* pattern from line */
  1508. X    int  dom_ok;        /* in right domain */
  1509. X    int  host_ok;        /* right host */
  1510. X    FILE *rf;            /* route file */
  1511. X    char local_host[100];    /* callers host name */
  1512. X    char local_domain[100];    /* this domain */
  1513. X
  1514. X    if (bang && *bang == NUL) bang = NULL;
  1515. X    if (remote_host == NULL || *remote_host == NUL) return 0;
  1516. X
  1517. X    if (remote_domain && *remote_domain == NUL) remote_domain = NULL;
  1518. X
  1519. X    gethostname(local_host, 100);
  1520. X    if (routep = strchr(local_host, '.')) *routep = NUL;
  1521. X    local_domain[0] = NUL;
  1522. X
  1523. X    rf = open_file(relative(lib_directory, "routes"), OPEN_READ);
  1524. X    if (rf == NULL) {
  1525. X#ifdef TRACE
  1526. X    if (route_trace) fprintf(route_trace, "---No routes file\n");
  1527. X#endif
  1528. X    return 0;
  1529. X    }
  1530. X
  1531. X    dom_ok = host_ok = 1;
  1532. X    routep = route;
  1533. X    pattern = NULL;
  1534. X
  1535. X    while (fgets(line, 512, rf) != NULL) {
  1536. X    lp = line;
  1537. X    while (*lp && isspace(*lp)) lp++;
  1538. X    if (*lp == NUL || *lp == '#') continue;
  1539. X
  1540. X    if (*lp == '/') {
  1541. X        lp++;
  1542. X        cmdc = *lp++;
  1543. X        while (*lp && isspace(*lp)) lp++;
  1544. X        if (*lp == '#') *lp = NUL;
  1545. X
  1546. X        if (cmdc == 'L') {        /* local (default) domain name(s) */
  1547. X        cstrcpy(local_domain, lp);
  1548. X
  1549. X        if (remote_domain == NULL ||
  1550. X            cstreq(lp, remote_domain) != NULL) {
  1551. X            dom_ok = 1;
  1552. X            if (strcmp(local_host, remote_host) == 0) {
  1553. X            pattern = "%p%n";
  1554. X            break;
  1555. X            }
  1556. X        }
  1557. X        continue;
  1558. X        }
  1559. X
  1560. X        if (cmdc == 'D') {        /* destination domain */
  1561. X        if (*lp == NUL)
  1562. X            dom_ok = 1;
  1563. X        else
  1564. X            dom_ok = (cstreq(lp, remote_domain) != NULL);
  1565. X        continue;
  1566. X        }
  1567. X
  1568. X        if (!dom_ok) continue;
  1569. X
  1570. X        if (cmdc == 'H') {        /* local host */
  1571. X        if (*lp == NUL)
  1572. X            host_ok = 1;
  1573. X        else
  1574. X            host_ok = (cstreq(lp, local_host) != NULL);
  1575. X        continue;
  1576. X        }
  1577. X
  1578. X        if (!host_ok) continue;
  1579. X
  1580. X        switch (cmdc) {
  1581. X
  1582. X         case 'N':    /* neighbouring (uucp) sites */
  1583. X        if (cstreq(lp, remote_host) == NULL) continue;
  1584. X        pattern = "%s!%n";
  1585. X        break;
  1586. X
  1587. X         case 'P':
  1588. X        if (*lp == '+')
  1589. X            routep = cstrcpy(routep, ++lp);
  1590. X        else
  1591. X            routep = cstrcpy(route, lp);
  1592. X        continue;
  1593. X
  1594. X         case 'G':
  1595. X        pattern = lp;
  1596. X        break;
  1597. X
  1598. X         case 'B':
  1599. X        if (!bang) continue;
  1600. X        pattern = lp;
  1601. X        break;
  1602. X
  1603. X         default:
  1604. X        continue;
  1605. X        }
  1606. X
  1607. X        break;
  1608. X    }
  1609. X
  1610. X    if (!dom_ok) continue;
  1611. X    if (!host_ok) continue;
  1612. X
  1613. X    if ((pattern = cstreq(lp, remote_host))!=NULL) break;
  1614. X    }
  1615. X
  1616. X    fclose(rf);
  1617. X
  1618. X    if (pattern == NULL) return 0;
  1619. X
  1620. X#ifdef TRACE
  1621. X    if (route_trace) fprintf(route_trace, "   pattern='%s'\n", pattern);
  1622. X#endif
  1623. X
  1624. X    for (; *pattern != NL && *pattern != NUL; pattern++) {
  1625. X    if (*pattern == SP || *pattern == TAB) continue;
  1626. X    if (*pattern == '%') {
  1627. X        pattern++;
  1628. X        switch(*pattern) {
  1629. X         case 'n':
  1630. X        routep = cstrcpy(routep, remote_user);
  1631. X        continue;
  1632. X         case 's':
  1633. X        routep = cstrcpy(routep, remote_host);
  1634. X        continue;
  1635. X         case 'd':
  1636. X        routep = cstrcpy(routep,
  1637. X                 remote_domain ? remote_domain : local_domain);
  1638. X        continue;
  1639. X         case 'b':
  1640. X        routep = cstrcpy(routep, bang);
  1641. X        continue;
  1642. X         case 'p':
  1643. X        routep = route;
  1644. X        continue;
  1645. X         case '%':
  1646. X        break;
  1647. X         default:
  1648. X        continue;
  1649. X        }
  1650. X    }
  1651. X    *routep++ = *pattern;
  1652. X    }
  1653. X    *routep = NUL;
  1654. X
  1655. X    return 1;
  1656. X}
  1657. X
  1658. Xreroute(route, address)
  1659. Xchar *route, *address;
  1660. X{
  1661. X    char *name, *site, *domain;
  1662. X    char *atpos, *dotpos;
  1663. X    register char *sp;
  1664. X    register c;
  1665. X    int found;
  1666. X
  1667. X#ifdef TRACE
  1668. X    if (route_trace ||
  1669. X    (route_trace = open_file(relative(nn_directory, "trace"),
  1670. X                OPEN_APPEND | DONT_CREATE)))
  1671. X    fprintf(route_trace, "--orig: '%s'\n", address);
  1672. X#endif
  1673. X
  1674. X    found = 0;
  1675. X
  1676. X    /* if a sender (or receiver!) is not provided,
  1677. X     * we first try the site from the 'Reply-To:'
  1678. X     * and 'From:' lines  who@site.domain */
  1679. X
  1680. X    if (atpos = strchr(address, '@')) {
  1681. X    *atpos = NUL;
  1682. X    name = atpos;
  1683. X
  1684. X    while (--name >= address)
  1685. X        if (isspace(*name) || *name == '<') {
  1686. X        name++;
  1687. X        break;
  1688. X        }
  1689. X    if (name < address) name++;
  1690. X
  1691. X    dotpos = atpos;
  1692. X    site   = atpos + 1;
  1693. X
  1694. X     next_dot:
  1695. X    *dotpos = NUL;
  1696. X    domain = dotpos + 1;
  1697. X    for (sp = domain; c = *sp; sp++) {
  1698. X        if (isspace(c) || c == '>') break;
  1699. X        if (c == '.') {
  1700. X        *dotpos = '.';
  1701. X        dotpos = sp;
  1702. X        goto next_dot;
  1703. X        }
  1704. X    }
  1705. X    *sp = NUL;
  1706. X    if (site == domain)
  1707. X        domain = NULL;
  1708. X    else
  1709. X        *atpos = NUL;    /* overwritten when first . is found */
  1710. X
  1711. X#ifdef TRACE
  1712. X    if (route_trace)
  1713. X        fprintf(route_trace,
  1714. X            "   @-type: name='%s' site='%s' domain='%s'\n",
  1715. X            name, site, domain ? domain : "");
  1716. X#endif
  1717. X
  1718. X    found = find_route(route, name, site, domain, (char *)NULL);
  1719. X
  1720. X    if (dotpos) { *dotpos = '.'; *sp = c; }
  1721. X    if (atpos) *atpos = '@';
  1722. X
  1723. X    goto out;
  1724. X    }
  1725. X
  1726. X    /*
  1727. X     * not domain address -- look for bang address
  1728. X     */
  1729. X
  1730. X    if (!(name = strrchr(address, '!'))) {
  1731. X    /*
  1732. X     * neither domain nor bang -- suppose it is a local address
  1733. X     */
  1734. X    strcpy(route, address);
  1735. X    found = 1;
  1736. X    goto out;
  1737. X    }
  1738. X
  1739. X    *name++ = NUL;
  1740. X    if (site = strrchr(address, '!'))
  1741. X    *site++ = NUL;
  1742. X    else {
  1743. X    site = address;
  1744. X    address = NULL;
  1745. X    }
  1746. X
  1747. X#ifdef TRACE
  1748. X    if (route_trace)
  1749. X    fprintf(route_trace,
  1750. X        "   !-type: name='%s' site='%s' bang='%s'\n",
  1751. X        name, site, address ? address : "NONE");
  1752. X#endif
  1753. X
  1754. X    found = find_route(route, name, site, (char *)NULL, address);
  1755. X
  1756. X    *--name = '!';
  1757. X    if (address) *--site = '!';
  1758. X
  1759. X out:
  1760. X
  1761. X#ifdef TRACE
  1762. X    if (route_trace) {
  1763. X    if (found)
  1764. X        fprintf(route_trace, "--route='%s'\n\n", route);
  1765. X    else
  1766. X        fprintf(route_trace, "--NO ROUTE\n\n");
  1767. X    fclose(route_trace);
  1768. X    route_trace = NULL;
  1769. X    }
  1770. X#endif
  1771. X    return found;
  1772. X}
  1773. X
  1774. X#endif
  1775. END_OF_FILE
  1776.   if test 7348 -ne `wc -c <'reroute.c'`; then
  1777.     echo shar: \"'reroute.c'\" unpacked with wrong size!
  1778.   fi
  1779.   # end of 'reroute.c'
  1780. fi
  1781. if test -f 'unshar.c' -a "${1}" != "-c" ; then 
  1782.   echo shar: Will not clobber existing file \"'unshar.c'\"
  1783. else
  1784.   echo shar: Extracting \"'unshar.c'\" \(5341 characters\)
  1785.   sed "s/^X//" >'unshar.c' <<'END_OF_FILE'
  1786. X/****************************************************************
  1787. X * unshar.c: Unpackage one or more shell archive files
  1788. X *
  1789. X * Description:    unshar is a filter which removes the front part
  1790. X *        of a file and passes the rest to the 'sh' command.
  1791. X *        It understands phrases like "cut here", and also
  1792. X *        knows about shell comment characters and the Unix
  1793. X *        commands "echo", "cat", and "sed".
  1794. X *
  1795. X * HISTORY
  1796. X *  27-July-88  Kim F. Storm (storm@texas.dk) Texas Instruments, Denmark
  1797. X *    Adapted to :unshar command in nn
  1798. X *    Added static to function declarations
  1799. X *    Removed all unused functions, i.e. not useful as stand-alone pgm.
  1800. X * 29-Jan-85  Michael Mauldin (mlm) at Carnegie-Mellon University
  1801. X *    Created.
  1802. X ****************************************************************/
  1803. X
  1804. X#include "config.h"
  1805. X
  1806. X
  1807. X/*****************************************************************
  1808. X * stlmatch  --  match leftmost part of string
  1809. X *
  1810. X * Usage:  i = stlmatch (big,small)
  1811. X *    int i;
  1812. X *    char *small, *big;
  1813. X *
  1814. X * Returns 1 iff initial characters of big match small exactly;
  1815. X * else 0.
  1816. X *
  1817. X * HISTORY
  1818. X * 18-May-82 Michael Mauldin (mlm) at Carnegie-Mellon University
  1819. X *      Ripped out of CMU lib for Rog-O-Matic portability
  1820. X * 20-Nov-79  Steven Shafer (sas) at Carnegie-Mellon University
  1821. X *    Rewritten for VAX from Ken Greer's routine.
  1822. X *
  1823. X *  Originally from klg (Ken Greer) on IUS/SUS UNIX
  1824. X *****************************************************************/
  1825. X
  1826. Xstatic int   stlmatch (big, small)
  1827. Xchar *small, *big;
  1828. X{ register char *s, *b;
  1829. X  s = small;
  1830. X  b = big;
  1831. X  do
  1832. X  { if (*s == '\0')
  1833. X      return (1);
  1834. X  }
  1835. X  while (*s++ == *b++);
  1836. X  return (0);
  1837. X}
  1838. X
  1839. X/*****************************************************************
  1840. X * smatch: Given a data string and a pattern containing one or
  1841. X * more embedded stars (*) (which match any number of characters)
  1842. X * return true if the match succeeds, and set res[i] to the
  1843. X * characters matched by the 'i'th *.
  1844. X *****************************************************************/
  1845. X
  1846. Xstatic smatch (dat, pat, res)
  1847. Xregister char *dat, *pat, **res;
  1848. X{ register char *star = 0, *starend, *resp;
  1849. X  int nres = 0;
  1850. X
  1851. X  while (1)
  1852. X  { if (*pat == '*')
  1853. X    { star = ++pat;                  /* Pattern after * */
  1854. X      starend = dat;                  /* Data after * match */
  1855. X      resp = res[nres++];              /* Result string */
  1856. X      *resp = '\0';                  /* Initially null */
  1857. X    }
  1858. X    else if (*dat == *pat)              /* Characters match */
  1859. X    { if (*pat == '\0')              /* Pattern matches */
  1860. X    return (1);
  1861. X      pat++;                      /* Try next position */
  1862. X      dat++;
  1863. X    }
  1864. X    else
  1865. X    { if (*dat == '\0')              /* Pattern fails - no more */
  1866. X    return (0);                  /* data */
  1867. X      if (star == 0)                  /* Pattern fails - no * to */
  1868. X    return (0);                  /* adjust */
  1869. X      pat = star;                  /* Restart pattern after * */
  1870. X      *resp++ = *starend;              /* Copy character to result */
  1871. X      *resp = '\0';                  /* null terminate */
  1872. X      dat = ++starend;                  /* Rescan after copied char */
  1873. X    }
  1874. X  }
  1875. X}
  1876. X
  1877. X/****************************************************************
  1878. X * position: position 'fil' at the start of the shell command
  1879. X * portion of a shell archive file.
  1880. X * Kim Storm: removed static variables
  1881. X ****************************************************************/
  1882. X
  1883. Xunshar_position (fil)
  1884. XFILE *fil;
  1885. X{
  1886. X    char buf[BUFSIZ];
  1887. X    long pos, ftell ();
  1888. X
  1889. X    /* Results from star matcher */
  1890. X    char res1[BUFSIZ], res2[BUFSIZ], res3[BUFSIZ], res4[BUFSIZ];
  1891. X    char *result[4];
  1892. X
  1893. X    result[0] = res1, result[1] = res2, result[2] = res3, result[3] = res4 ;
  1894. X
  1895. X    /*  rewind (fil);  */
  1896. X
  1897. X    while (1) {
  1898. X    /* Record position of the start of this line */
  1899. X    pos = ftell (fil);
  1900. X
  1901. X    /* Read next line, fail if no more */
  1902. X    if (fgets (buf, BUFSIZ, fil) == NULL) {
  1903. X        msg("no shell commands in file");
  1904. X        return (0);
  1905. X    }
  1906. X
  1907. X    /* Bail out if we see C preprocessor commands or C comments */
  1908. X    if (stlmatch (buf, "#include")    || stlmatch (buf, "# include") ||
  1909. X        stlmatch (buf, "#define")    || stlmatch (buf, "# define") ||
  1910. X        stlmatch (buf, "#ifdef")    || stlmatch (buf, "# ifdef") ||
  1911. X        stlmatch (buf, "#ifndef")    || stlmatch (buf, "# ifndef") ||
  1912. X        stlmatch (buf, "/*"))
  1913. X        {
  1914. X        msg("file looks like raw C code, not a shar file");
  1915. X        return (0);
  1916. X        }
  1917. X
  1918. X    /* Does this line start with a shell command or comment */
  1919. X    if (stlmatch (buf, "#")    ||
  1920. X        stlmatch (buf, ":") ||
  1921. X        stlmatch (buf, "echo ") ||
  1922. X        stlmatch (buf, "sed ") ||
  1923. X        stlmatch (buf, "cat "))
  1924. X    {
  1925. X        fseek (fil, pos, 0);
  1926. X        return (1);
  1927. X    }
  1928. X
  1929. X    /* Does this line say "Cut here" */
  1930. X    if (smatch (buf, "*CUT*HERE*", result) ||
  1931. X        smatch (buf, "*cut*here*", result) ||
  1932. X        smatch (buf, "*TEAR*HERE*", result) ||
  1933. X        smatch (buf, "*tear*here*", result) ||
  1934. X        smatch (buf, "*CUT*CUT*", result) ||
  1935. X        smatch (buf, "*cut*cut*", result))
  1936. X    {
  1937. X        /* Read next line after "cut here", skipping blank lines */
  1938. X        while (1) {
  1939. X        pos = ftell (fil);
  1940. X
  1941. X        if (fgets (buf, BUFSIZ, fil) == NULL) {
  1942. X            msg("no shell commands after 'cut'");
  1943. X            return (0);
  1944. X        }
  1945. X
  1946. X        if (*buf != '\n') break;
  1947. X        }
  1948. X
  1949. X        /*
  1950. X         * Win if line starts with a comment character of
  1951. X         * lower case letter
  1952. X         */
  1953. X        if (*buf == '#' ||
  1954. X        *buf == ':' ||
  1955. X        (('a' <= *buf) && ('z' >= *buf))) {
  1956. X        fseek (fil, pos, 0);
  1957. X        return (1);
  1958. X        }
  1959. X
  1960. X        /* Cut here message lied to us */
  1961. X        msg("invalid data after CUT line");
  1962. X        return (0);
  1963. X    }
  1964. X    }
  1965. X}
  1966. X
  1967. END_OF_FILE
  1968.   if test 5341 -ne `wc -c <'unshar.c'`; then
  1969.     echo shar: \"'unshar.c'\" unpacked with wrong size!
  1970.   fi
  1971.   # end of 'unshar.c'
  1972. fi
  1973. if test -f 'xmakefile' -a "${1}" != "-c" ; then 
  1974.   echo shar: Will not clobber existing file \"'xmakefile'\"
  1975. else
  1976.   echo shar: Extracting \"'xmakefile'\" \(6903 characters\)
  1977.   sed "s/^X//" >'xmakefile' <<'END_OF_FILE'
  1978. X*
  1979. X* DO NOT CHANGE THIS MAKEFILE DIRECTLY
  1980. X*
  1981. X* THERE ARE NO CONFIGURATION PARAMETERS IN THIS FILE
  1982. X*
  1983. X
  1984. X#include "config.h"
  1985. X#undef global
  1986. X#undef SHELL
  1987. X
  1988. X#ifndef COMPILER_FLAGS
  1989. X#define COMPILER_FLAGS
  1990. X#endif
  1991. X
  1992. X#ifndef EXTRA_LIB
  1993. X#define EXTRA_LIB
  1994. X#endif
  1995. X
  1996. X#ifdef HAVE_ROUTING
  1997. X#define NNMAIL
  1998. X#else
  1999. X#define    NNMAIL nnmail
  2000. X#endif
  2001. X
  2002. X#ifdef ACCOUNTING
  2003. X#define ACCOUNT nnacct
  2004. X#else
  2005. X#ifdef AUTHORIZE
  2006. X#define ACCOUNT nnacct
  2007. X#else
  2008. X#define ACCOUNT
  2009. X#endif
  2010. X#endif
  2011. X------------------ MAKE WILL CUT HERE -------------
  2012. X*
  2013. X* Notice:  ymakefile is made from xmakefile by the Makefile.
  2014. X*
  2015. X
  2016. XCC =     COMPILER
  2017. XCPP =     PREPROC
  2018. XCFLAGS = -Iconf COMPILER_FLAGS CDEBUG
  2019. X
  2020. X*
  2021. X* Resulting programs
  2022. X*
  2023. X
  2024. XBIN_PROG =    nn NNMAIL nnusage nngrab nnstats ACCOUNT
  2025. XBIN_LINK =    nncheck nnadmin nntidy nngoback nngrep nnpost
  2026. XLIB_PROG =    aux upgrade_rc
  2027. XMASTER_PROG =    nnmaster back_act nnspew
  2028. X
  2029. X*
  2030. X* Compilation
  2031. X*
  2032. X
  2033. XSHELL = /bin/sh
  2034. X
  2035. XMASTER = master.o collect.o expire.o proto.o \
  2036. X    global.o options.o active.o db.o nntp.o \
  2037. X    pack_date.o pack_name.o pack_subject.o news.o digest.o
  2038. X
  2039. XNN =     nn.o admin.o proto.o global.o options.o db.o nntp.o \
  2040. X    init.o variable.o term.o keymap.o macro.o regexp.o \
  2041. X    menu.o more.o newsrc.o group.o folder.o dir.o \
  2042. X    sort.o articles.o sequence.o kill.o active.o fullname.o \
  2043. X    answer.o reroute.o hostname.o save.o unshar.o decode.o execute.o \
  2044. X    pack_date.o pack_name.o pack_subject.o news.o digest.o match.o
  2045. X
  2046. XACCT = account.o global.o options.o proto.o
  2047. X
  2048. XMAIL = nnmail.o reroute.o hostname.o global.o options.o
  2049. X
  2050. X
  2051. Xall:    $(BIN_PROG) $(LIB_PROG) $(MASTER_PROG) inst
  2052. X
  2053. Xclient: $(BIN_PROG) $(LIB_PROG) inst
  2054. X
  2055. Xmaster: $(MASTER_PROG) inst
  2056. X
  2057. Xnn:    $(NN)
  2058. X    @echo linking nn
  2059. X    @$(CC) $(CFLAGS) $(NN) TERMLIB EXTRA_LIB -o nn
  2060. X
  2061. Xnnmaster: $(MASTER)
  2062. X    @echo linking nnmaster
  2063. X    @$(CC) $(CFLAGS) $(MASTER) EXTRA_LIB -o nnmaster
  2064. X
  2065. Xnnmail:    $(MAIL)
  2066. X    @echo linking nnmail
  2067. X    @$(CC) $(CFLAGS) $(MAIL) EXTRA_LIB -o nnmail
  2068. X
  2069. Xnnstats: nnstats.sh prefix
  2070. X    cat prefix nnstats.sh > nnstats ; chmod +x nnstats
  2071. X
  2072. Xnnusage: nnusage.sh prefix
  2073. X    cat prefix nnusage.sh > nnusage ; chmod +x nnusage
  2074. X
  2075. Xnngrab:    nngrab.sh prefix
  2076. X    cat prefix nngrab.sh > nngrab ; chmod +x nngrab
  2077. X
  2078. Xaux:     aux.sh prefix
  2079. X    cat prefix aux.sh > aux ; chmod +x aux
  2080. X
  2081. Xupgrade_rc: upgrade_rc.sh prefix
  2082. X    cat prefix upgrade_rc.sh > upgrade_rc ; chmod +x upgrade_rc
  2083. X
  2084. Xnnacct: $(ACCT)
  2085. X    @echo linking nnacct
  2086. X    @$(CC) $(CFLAGS) $(ACCT) EXTRA_LIB -o nnacct
  2087. X
  2088. Xback_act: back_act.sh prefix
  2089. X    cat prefix back_act.sh > back_act ; chmod +x back_act
  2090. X
  2091. Xnnspew:    nnspew.sh prefix
  2092. X    cat prefix nnspew.sh > nnspew ; chmod +x nnspew
  2093. X
  2094. Xprefix:    config.h mkprefix
  2095. X    ./mkprefix prefix < /dev/null > prefix
  2096. X
  2097. Xmkprefix: prefix.o global.o
  2098. X    $(CC) $(CFLAGS) prefix.o global.o EXTRA_LIB -o mkprefix
  2099. X
  2100. X*
  2101. X* Configuration counter updating
  2102. X*
  2103. X
  2104. Xupdate.h:    config.h patchlevel.h Makefile
  2105. X    @sh -c "[ -f update.h ] || (echo 0 > update.h)"
  2106. X    @sh -c "expr `cat update.h` + 1 > update1.h && mv update1.h update.h"
  2107. X    @echo configuration number updated to `cat update.h`
  2108. X
  2109. X*
  2110. X* Installation
  2111. X*
  2112. X
  2113. Xcvt-help:    cvt-help.c
  2114. X    $(CC) -o cvt-help cvt-help.c
  2115. X
  2116. Xusercheck:    usercheck.c
  2117. X    $(CC) -o usercheck usercheck.c
  2118. X
  2119. Xinst: config.h xmakefile inst.sh cvt-help usercheck mkprefix man/nn.1
  2120. X    @echo building install script: ./inst
  2121. X    @./mkprefix full < /dev/null > inst
  2122. X    @echo BIN_PROG=\"$(BIN_PROG)\" >> inst
  2123. X    @echo BIN_LINK=\"$(BIN_LINK)\" >> inst
  2124. X    @echo LIB_PROG=\"$(LIB_PROG)\" >> inst
  2125. X    @echo MASTER_PROG=\"$(MASTER_PROG)\" >> inst
  2126. X    @cat inst.sh >> inst
  2127. X    @chmod 755 inst
  2128. X
  2129. X* merge nn.1
  2130. X
  2131. Xman/nn.1:    man/nn.1.A man/nn.1.B man/nn.1.C man/nn.1.D
  2132. X    [ ! -f man/nn.1 ] || mv man/nn.1 man/nn.1~
  2133. X    cat man/nn.1.? > man/nn.1
  2134. X
  2135. X*
  2136. X* Clean -- remove compiled programs
  2137. X*
  2138. X
  2139. Xclean:
  2140. X    rm -f $(BIN_PROG) $(LIB_PROG) $(MASTER_PROG) cvt-help usercheck
  2141. X
  2142. X*
  2143. X* dependencies
  2144. X*
  2145. X
  2146. Xaccount.o:    account.c config.h global.h vararg.h options.h proto.h
  2147. Xactive.o:    active.c config.h global.h vararg.h data.h
  2148. Xadmin.o:    admin.c config.h global.h vararg.h data.h db.h term.h \
  2149. X        proto.h
  2150. Xanswer.o:    answer.c config.h global.h vararg.h data.h news.h term.h \
  2151. X        keymap.h options.h
  2152. Xarticles.o:    articles.c config.h global.h vararg.h data.h db.h articles.h
  2153. Xcollect.o:    collect.c config.h global.h vararg.h data.h db.h news.h
  2154. Xdb.o:        db.c config.h global.h vararg.h data.h db.h
  2155. Xdecode.o:    decode.c config.h global.h vararg.h data.h
  2156. Xdigest.o:    digest.c config.h global.h vararg.h data.h news.h debug.h
  2157. Xdir.o:        dir.c config.h global.h vararg.h data.h articles.h dir.h
  2158. Xexecute.o:    execute.c config.h global.h vararg.h data.h term.h
  2159. Xexpire.o:    expire.c config.h global.h vararg.h data.h db.h dir.h
  2160. Xfolder.o:    folder.c config.h global.h vararg.h data.h articles.h news.h \
  2161. X        term.h menu.h
  2162. Xfullname.o:    fullname.c config.h global.h
  2163. Xglobal.o:    global.c config.h global.h vararg.h data.h \
  2164. X        patchlevel.h update.h
  2165. Xgroup.o:    group.c config.h global.h vararg.h data.h articles.h db.h \
  2166. X        term.h menu.h keymap.h regexp.h
  2167. Xhostname.o:    hostname.c config.h
  2168. Xinit.o:        init.c config.h global.h vararg.h data.h articles.h term.h \
  2169. X        keymap.h menu.h
  2170. Xkeymap.o:    keymap.c config.h global.h vararg.h data.h keymap.h term.h
  2171. Xkill.o:        kill.c config.h global.h vararg.h data.h term.h regexp.h
  2172. Xmacro.o:    macro.c config.h global.h vararg.h data.h keymap.h term.h
  2173. Xmaster.o:    master.c config.h global.h vararg.h data.h db.h \
  2174. X        options.h proto.h
  2175. Xmatch.o:    match.c config.h global.h regexp.h
  2176. Xmenu.o:        menu.c config.h global.h vararg.h data.h articles.h term.h \
  2177. X        keymap.h menu.h regexp.h
  2178. Xmore.o:        more.c config.h global.h vararg.h data.h news.h term.h \
  2179. X        menu.h keymap.h regexp.h
  2180. Xnews.o:        news.c config.h global.h vararg.h data.h news.h
  2181. Xnn.o:        nn.c config.h global.h vararg.h data.h menu.h term.h \
  2182. X        keymap.h options.h articles.h proto.h
  2183. Xnnmail.o:    nnmail.c config.h global.h vararg.h data.h options.h
  2184. Xnntp.o:        nntp.c config.h global.h vararg.h data.h nntp.h
  2185. Xoptions.o:    options.c config.h global.h vararg.h data.h options.h
  2186. Xpack_date.o:    pack_date.c config.h global.h vararg.h data.h
  2187. Xpack_name.o:    pack_name.c config.h global.h vararg.h data.h
  2188. Xpack_subject.o:    pack_subject.c config.h global.h vararg.h data.h
  2189. Xprefix.o:    config.h global.h
  2190. Xproto.o:    proto.c config.h global.h proto.h
  2191. Xnewsrc.o:    newsrc.c config.h global.h vararg.h data.h term.h debug.h
  2192. Xregexp.o:    regexp.c config.h global.h vararg.h data.h regexp.h
  2193. Xreroute.o:    reroute.c config.h global.h vararg.h data.h
  2194. Xsave.o:        save.c config.h global.h vararg.h data.h term.h keymap.h \
  2195. X        news.h
  2196. Xselection.o:    selection.c config.h global.h vararg.h data.h term.h\
  2197. X         articles.h
  2198. Xsequence.o:    sequence.c config.h global.h vararg.h data.h debug.h
  2199. Xsort.o:        sort.c config.h global.h vararg.h data.h
  2200. Xterm.o:        term.c config.h global.h vararg.h data.h term.h keymap.h
  2201. Xunshar.o:    unshar.c config.h global.h vararg.h data.h
  2202. Xvariable.o:    variable.c config.h global.h vararg.h data.h
  2203. X
  2204. X* link debugging version
  2205. X
  2206. Xnn1:    $(NN)
  2207. X    $(CC) $(CFLAGS) $(NN) TERMLIB EXTRA_LIB -Mnn1 -o nn1
  2208. X
  2209. Xnnmaster1: $(MASTER)
  2210. X    $(CC) $(CFLAGS) $(MASTER) EXTRA_LIB -Mnnmaster1 -o nnmaster1
  2211. X
  2212. Xlint:
  2213. X    echo LINTING NN
  2214. X*    lint -Iconf -u -DNNTP $(NN:.o=.c)
  2215. X    echo LINTING MASTER
  2216. X*    lint -Iconf -u -DNNTP $(MASTER:.o=.c)
  2217. END_OF_FILE
  2218.   if test 6903 -ne `wc -c <'xmakefile'`; then
  2219.     echo shar: \"'xmakefile'\" unpacked with wrong size!
  2220.   fi
  2221.   # end of 'xmakefile'
  2222. fi
  2223. echo shar: End of archive 18 \(of 22\).
  2224. cp /dev/null ark18isdone
  2225. MISSING=""
  2226. for I in 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 ; do
  2227.     if test ! -f ark${I}isdone ; then
  2228.     MISSING="${MISSING} ${I}"
  2229.     fi
  2230. done
  2231. if test "${MISSING}" = "" ; then
  2232.     echo You have unpacked all 22 archives.
  2233.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  2234. else
  2235.     echo You still must unpack the following archives:
  2236.     echo "        " ${MISSING}
  2237. fi
  2238. exit 0
  2239.  
  2240. exit 0 # Just in case...
  2241.